home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_7122.txt < prev    next >
Text File  |  1990-08-07  |  7KB  |  376 lines
  1. -- card: 7122 from stack: in.0-2
  2. -- bmap block id: 31237
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: student.4
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   if icon of btn "switch" is 282 then click at loc of btn "switch"
  9. end closeCard
  10.  
  11. on calculate
  12.   get char 1 of card field "EMF"
  13.   if it="+" then
  14.     delete char 1 of card field "EMF"
  15.   end if
  16.   put card field "EMF" into E
  17.  
  18.   get char 1 of card field "R1"
  19.   if it="+" then
  20.     delete char 1 of card field "R1"
  21.   end if
  22.   put card field "R1" into R1
  23.   put abs(R1) into R1
  24.   put R1 into card field "R1"
  25.  
  26.   get char 1 of card field "R2"
  27.   if it="+" then
  28.     delete char 1 of card field "R2"
  29.   end if
  30.   put card field "R2" into R2
  31.   put abs(R2) into R2
  32.   put R2 into card field "R2"
  33.  
  34.   get char 1 of card field "R3"
  35.   if it="+" then
  36.     delete char 1 of card field "R3"
  37.   end if
  38.   put card field "R3" into R3
  39.   put abs(R3) into R3
  40.   put R3 into card field "R3"
  41.  
  42.   if E=0 then
  43.     send zeroall
  44.     exit calculate
  45.   end if
  46.  
  47.   if E<>0 and R1=0 then
  48.  
  49.     if R2=0 and R3<>0 then
  50.       put 0 into card field "A3"
  51.       put 0 into card field "V1"
  52.       --blow up A1 and A2
  53.       put "zap" into card field "A1"
  54.       put "zap" into card field "A2"
  55.     end if
  56.  
  57.     if R3=0 and R2<>0 then
  58.       put 0 into card field "A2"
  59.       put 0 into card field "V1"
  60.       --blow up A1 and A3
  61.       put "zap" into card field "A1"
  62.       put "zap" into card field "A3"
  63.     end if
  64.  
  65.     if R2=0 and R3=0 then
  66.       put 0 into card field "V1"
  67.       --blow up A1, A2, & A3
  68.       put "zap" into card field "A1"
  69.       put "zap" into card field "A2"
  70.       put "zap" into card field "A3"
  71.     end if
  72.  
  73.     if R2=0 or R3=0 then
  74.       exit calculate
  75.     end if
  76.  
  77.   end if
  78.  
  79.  
  80.   if R2=0 and R3=0 then
  81.     put 0 into V1
  82.     put E/R1 into I1
  83.     put I1/2 into I2
  84.     put I2 into I3
  85.   else
  86.     put R2*R3/(R2+R3) into RP
  87.     put E/(R1+RP) into I1
  88.     put I1*RP into V1
  89.     if R2=0 then
  90.       put I1 into I2
  91.     else
  92.       put V1/R2 into I2
  93.     end if
  94.     if R3=0 then
  95.       put I1 into I3
  96.     else
  97.       put V1/R3 into I3
  98.     end if
  99.   end if
  100.  
  101.   set the numberFormat to "0.000"
  102.   put I1 into card field "A1"
  103.   put I2 into card field "A2"
  104.   put I3 into card field "A3"
  105.   put 1*V1 into card field "V1"
  106. end calculate
  107.  
  108. --on closeField
  109. --  set icon of btn "switch" to "open circuit"
  110. --  send zeroall
  111. --end closeField
  112.  
  113. on zeroall
  114.   put 0 into card field "V1"
  115.   put 0 into card field "A1"
  116.   put 0 into card field "A2"
  117.   put 0 into card field "A3"
  118. end zeroall
  119.  
  120.  
  121.  
  122. -- part 2 (button)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=339 top=140 right=174 bottom=378
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 28757 / 28757
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: switch
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   if icon of me is 28757 then
  137.     set icon of me to "close circuit"
  138.     calculate
  139.   else
  140.     set icon of me to "open circuit"
  141.     zeroall
  142.   end if
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 3 (field)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=274 top=106 right=119 bottom=309
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 65535
  154. -- font id: 3
  155. -- text size: 9
  156. -- style flags: 256
  157. -- line height: 12
  158. -- part name: R1
  159. ----- HyperTalk script -----
  160. on closeField
  161.   if icon of cd btn "Switch" is not 28757 then calculate
  162. end closeField
  163.  
  164.  
  165.  
  166. -- part 4 (field)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=188 top=111 right=124 bottom=224
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 65535
  173. -- font id: 3
  174. -- text size: 9
  175. -- style flags: 256
  176. -- line height: 12
  177. -- part name: EMF
  178. ----- HyperTalk script -----
  179. on closeField
  180.   if icon of cd btn "Switch" is not 28757 then calculate
  181. end closeField
  182.  
  183.  
  184.  
  185. -- part 5 (field)
  186. -- low flags: 01
  187. -- high flags: 0002
  188. -- rect: left=132 top=143 right=155 bottom=168
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 65535
  192. -- font id: 3
  193. -- text size: 8
  194. -- style flags: 0
  195. -- line height: 10
  196. -- part name: A1
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   if 3 = 4 then
  200.   end if
  201. end mouseUp
  202.  
  203.  
  204.  
  205.  
  206. -- part 6 (field)
  207. -- low flags: 01
  208. -- high flags: 0002
  209. -- rect: left=226 top=166 right=178 bottom=264
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 65535
  213. -- font id: 3
  214. -- text size: 8
  215. -- style flags: 0
  216. -- line height: 10
  217. -- part name: V1
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   if 3 = 4 then
  221.   end if
  222. end mouseUp
  223.  
  224.  
  225.  
  226.  
  227. -- part 7 (field)
  228. -- low flags: 01
  229. -- high flags: 0002
  230. -- rect: left=217 top=209 right=221 bottom=255
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 65535
  234. -- font id: 3
  235. -- text size: 8
  236. -- style flags: 0
  237. -- line height: 10
  238. -- part name: A2
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   if 3 = 4 then
  242.   end if
  243. end mouseUp
  244.  
  245.  
  246.  
  247.  
  248. -- part 8 (field)
  249. -- low flags: 01
  250. -- high flags: 0002
  251. -- rect: left=217 top=246 right=258 bottom=255
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 65535
  255. -- font id: 3
  256. -- text size: 8
  257. -- style flags: 0
  258. -- line height: 10
  259. -- part name: A3
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   if 3 = 4 then
  263.   end if
  264. end mouseUp
  265.  
  266.  
  267.  
  268.  
  269. -- part 9 (field)
  270. -- low flags: 00
  271. -- high flags: 0000
  272. -- rect: left=283 top=201 right=214 bottom=317
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 65535
  276. -- font id: 3
  277. -- text size: 9
  278. -- style flags: 256
  279. -- line height: 12
  280. -- part name: R2
  281. ----- HyperTalk script -----
  282. on closeField
  283.   if icon of cd btn "Switch" is not 28757 then calculate
  284. end closeField
  285.  
  286.  
  287.  
  288. -- part 10 (field)
  289. -- low flags: 00
  290. -- high flags: 0000
  291. -- rect: left=282 top=239 right=252 bottom=317
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 65535
  295. -- font id: 3
  296. -- text size: 9
  297. -- style flags: 256
  298. -- line height: 12
  299. -- part name: R3
  300. ----- HyperTalk script -----
  301. on closeField
  302.   if icon of cd btn "Switch" is not 28757 then calculate
  303. end closeField
  304.  
  305.  
  306.  
  307. -- part 12 (button)
  308. -- low flags: 00
  309. -- high flags: 2000
  310. -- rect: left=225 top=283 right=297 bottom=243
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 15420 / 15420
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: 
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   lock screen
  322.   go prev
  323.   unlock screen with wipe right
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 15 (field)
  329. -- low flags: 01
  330. -- high flags: 0000
  331. -- rect: left=242 top=82 right=103 bottom=369
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 65535
  335. -- font id: 174
  336. -- text size: 14
  337. -- style flags: 2304
  338. -- line height: 18
  339. -- part name: 
  340.  
  341.  
  342. -- part contents for card part 9
  343. ----- text -----
  344. 20
  345.  
  346. -- part contents for card part 10
  347. ----- text -----
  348. 20
  349.  
  350. -- part contents for card part 4
  351. ----- text -----
  352. 40
  353.  
  354. -- part contents for card part 3
  355. ----- text -----
  356. 40
  357.  
  358. -- part contents for card part 5
  359. ----- text -----
  360. 0
  361.  
  362. -- part contents for card part 7
  363. ----- text -----
  364. 0
  365.  
  366. -- part contents for card part 8
  367. ----- text -----
  368. 0
  369.  
  370. -- part contents for card part 6
  371. ----- text -----
  372. 0
  373.  
  374. -- part contents for card part 15
  375. ----- text -----
  376. SERIES-PARALLEL